package Class::Value::Boolean;

# $Id: Boolean.pm 11570 2006-06-06 13:29:50Z gr $

use strict;
use warnings;


our $VERSION = '0.04';


use base 'Class::Value::Enum';


sub get_valid_values_list           { (0, 1) }

sub get_value_normalization_hashref { {
    J => 1,
    j => 1,
    Y => 1,
    y => 1,
    N => 0,
    n => 0,
} }


# override to just use the value, no denormalization

sub as_plaintext { $_[0]->value }


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

Class::Value::Boolean - a boolean value object

=head1 SYNOPSIS

    my $v = Class::Value::Boolean->new('Y');

=head1 DESCRIPTION

{% p.write_inheritance %}

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% PROCESS standard_pod %}

=cut

